home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / OS2 / UT / DRPNZIP.ZIP / INSTALL.CMD < prev    next >
Encoding:
Text File  |  1994-11-06  |  488 b   |  15 lines
  1. /* Create Drop and Zip Object on Desktop */
  2. Call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  3. Call SysLoadFuncs
  4. CurrentDir=Directory()
  5. FileName=CurrentDir||"\dropnzip.exe"
  6. ExeName="EXENAME="||FileName
  7. Say ExeName
  8. If SysCreateObject("WPProgram","Drop and Zip","<WP_DESKTOP>",ExeName) then do
  9.       Say "Desktop Drop and Zip Object was created."
  10.       rc=SysSetIcon(FileName,"DropnZip.ico")
  11.       End
  12. Else
  13.       Say "Could not create Desktop Drop and Zip Object."
  14. Exit
  15.